home *** CD-ROM | disk | FTP | other *** search
/ Libris Britannia 4 / science library(b).zip / science library(b) / PROGRAMM / DB_CLIPP / 2510.ZIP / TRSOURCE.EXE / CHRCOUNT.C < prev    next >
C/C++ Source or Header  |  1990-10-22  |  733b  |  33 lines
  1. /*********
  2. * Function: CHRCOUNT
  3. * By: Tom Rettig 
  4. * Placed in the public domain by Tom Rettig Associates, 10/22/1990.
  5. *
  6. * Syntax: CHRCOUNT( <char>, <expC> )
  7. * Return: <expN> times <char> appears in <expC>
  8. * Note  : <char> is <expC>.
  9. *         If LEN(<char>) is greater than 1, only first char is looked at.
  10. *         Is case sensitive.
  11. ********/
  12.  
  13. #include "trlib.h"
  14.  
  15. TRTYPE chrcount()
  16. {
  17.    char *chr, *instr;
  18.    int ret;
  19.    if ( PCOUNT==2 && ISCHAR(1) && ISCHAR(2) )
  20.    {
  21.       chr   = _parc(1);
  22.       instr = _parc(2);
  23.       for ( ret=0; *instr; instr++ )
  24.       {
  25.          if ( *chr == *instr )
  26.             ret++;
  27.       }
  28.       _retni( ret );
  29.    }
  30.    else
  31.       _retni(ERRORNEG);    /* error -1 */
  32. }
  33.